n := 10;
c := n;
repeat
  c := c - 1
until c
